Pascal Super Library/Pascal Super Library (CW International)(1997).bin/PGM_TOOL/PREVIEW/ORGFILES/WPREVIEW.DFM/WPREVIEW.txt

Text File | 1995-11-12 | 6KB | 267 lines

object Preview: TPreview
  Left = 8
  Top = 47
  Width = 629
  Height = 413
  Caption = 'Screen Preview'
  Color = clWhite
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  FormStyle = fsMDIChild
  PixelsPerInch = 96
  PopupMenu = PopupMenu1
  Position = poDefault
  Visible = True
  WindowState = wsMinimized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 16
  object Image1: TImage
    Left = 4
    Top = 52
    Width = 613
    Height = 333
    OnMouseUp = Image1MouseUp
  end
  object Image2: TImage
    Left = 4
    Top = 52
    Width = 613
    Height = 333
    OnMouseUp = Image2MouseUp
  end
  object Barcode1: TBarcode
    Left = 532
    Top = 60
    Width = 80
    Height = 32
    BackColor = clWhite
    Caption = 'Barcode1'
    ForeColor = clBlack
    Visible = False
    BarWidth = 0
    Direction = 0
    Style = 3
    UPCNotches = 3
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 621
    Height = 49
    TabOrder = 0
    object Label1: TLabel
      Left = 124
      Top = 28
      Width = 41
      Height = 16
      Caption = 'Page>'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 416
      Top = 4
      Width = 33
      Height = 15
      Caption = 'Go To'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 124
      Top = 4
      Width = 289
      Height = 16
      AutoSize = False
      Caption = 'Label5'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 4
      Width = 102
      Height = 16
      Caption = 'Current Printer>'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel2: TPanel
      Left = 460
      Top = 8
      Width = 137
      Height = 29
      BevelOuter = bvLowered
      TabOrder = 0
      object Label3: TLabel
        Left = 12
        Top = 8
        Width = 34
        Height = 16
        Caption = 'Print:'
      end
      object BitBtn6: TBitBtn
        Left = 52
        Top = 4
        Width = 33
        Height = 21
        Caption = '&All'
        Font.Color = clGreen
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = BitBtn6Click
      end
      object BitBtn1: TBitBtn
        Left = 92
        Top = 4
        Width = 33
        Height = 21
        Caption = '&Pg'
        Font.Color = clGreen
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn1Click
      end
    end
    object Button1: TButton
      Left = 288
      Top = 24
      Width = 53
      Height = 21
      Caption = '&Next'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 228
      Top = 24
      Width = 53
      Height = 21
      Caption = '&Prev.'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 168
      Top = 24
      Width = 53
      Height = 21
      Caption = '&First'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 348
      Top = 24
      Width = 53
      Height = 21
      Caption = '&Last'
      TabOrder = 4
      OnClick = Button4Click
    end
    object Edit1: TEdit
      Left = 412
      Top = 24
      Width = 41
      Height = 17
      BorderStyle = bsNone
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnKeyPress = Edit1KeyPress
    end
    object Panel3: TPanel
      Left = 8
      Top = 24
      Width = 109
      Height = 21
      BevelOuter = bvLowered
      TabOrder = 6
      object Label2: TLabel
        Left = 4
        Top = 4
        Width = 101
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'Pg 1 of 1'
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 588
    Top = 8
    object Close1: TMenuItem
      Caption = 'Close'
      OnClick = Close1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object FirstPg1: TMenuItem
      Caption = 'First Pg'
      OnClick = FirstPg1Click
    end
    object PreviousPg1: TMenuItem
      Caption = 'Previous Pg'
      OnClick = PreviousPg1Click
    end
    object NextPg1: TMenuItem
      Caption = 'Next Pg'
      OnClick = NextPg1Click
    end
    object LastPg1: TMenuItem
      Caption = 'Last Pg'
      OnClick = LastPg1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object GoToPg1: TMenuItem
      Caption = 'Go To Pg #'
      OnClick = GoToPg1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object PrintAll1: TMenuItem
      Caption = 'Print All'
      OnClick = PrintAll1Click
    end
    object PrintPg1: TMenuItem
      Caption = 'Print Pg'
      OnClick = PrintPg1Click
    end
  end
end